Perl学习07之自增（++）自减（--）

"pythonic生物人"的第12篇分享。

---

摘要

Perl中自增（++）自减（--）的使用方法

目录

---

1、规则

2、数值自增/自减举例

3、字符串自增/自减举例

4、参考资料

---

正文开始啦

---

1、规则

perl支持数值、字符、字符串的自增、自减。

• ++ or --放在数值的前面，先增减，再返回；

• ++ or --放在数值的后面，则先返回，再增减；

• ++ or --是独立的一句表达式，则自增、自减符号放在前面或后面都是等价的；

  ---

2、数值自增/自减举例

例如，jianzeng.pl

#!/usr/bin/perl
use strict;
use warnings;
my $a=10;

print "4句为独立的自增、自减表达式，自增自减符号的位置无所谓\n";
$a++;    # 先返回10，再递增为11
print "$a\n";

++$a;    # 先递增为12，再返回12
print "$a\n";

--$a;    # 先递减为11，再返回11
print "$a\n";

$a--;    # 先返回11，再递减为10
print "$a\n";

my $m;
print "以下4句为非独立的自增、自减表达式，自增自减符号的位置有影响\n";
$m = $a++;    # 先返回10赋值给$m，然后$a再递增为11，所以执行结束后$m=10,$a=11
print "$m\t$a\n";

$m = ++$a;    # 先递增为12，再赋值给$m，所以执行结束后$m=12,$a=12
print "$m\t$a\n";

$m = --$a;    # 先递减为11，再赋值给$m，所以执行结束后$m=11,$a=11
print "$m\t$a\n";

$m = $a--;    # 先返回11赋值给$m，然后$a再递减为10，所以执行结束后$m=11,$a=10
print "$m\t$a\n";

perl jianzeng.pl

4句为独立的自增、自减表达式，自增自减符号的位置无所谓

11

12

11

10

以下4句为非独立的自增、自减表达式，自增自减符号的位置有影响

10 11

12 12

11 11

11 10

---

3、字符串自增/自减举例

字符串则以以下方式累加减：最后一个字符按照ascii顺序向上进一位，如果是Z或z字符，再进一位表示多加一个字符。

例如， jianzengzifu.pl

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
my $a;
$a="b"; say ++$a;
$a="ba"; say ++$a;
#ba，a前进一位
$a="bz"; say ++$a;
#bz，ba--bz--ca
$a="Az"; say ++$a;
$a="bZ"; say ++$a;
$a="zz"; say ++$a;

perl jianzengzifu.pl
c
cb
ca
Ba
cA
aaa

---

4、参考资料

https://www.cnblogs.com/f-ck-need-u/p/9536582.html

---

---

同系列文章

---

持续更新，欢迎您"关注"、"在看"、"分享"